(frame-notice-user-settings): If we change the frame's font,

call frame-update-faces.

diff --git a/lisp/frame.el b/lisp/frame.el
index b529afc89813bf1fc8f521c394a87246207102dc..e61e9a4c1d7988246216ce1e48993dec33cbd51b 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -323,8 +323,11 @@ These supersede the values given in `default-frame-alist'.")
                    (setq newparms
                          (cons (cons (car (car tail)) newval) newparms))))
              (setq tail (cdr tail)))
+           (setq newparms (nreverse newparms))
            (modify-frame-parameters frame-initial-frame
-                                    (nreverse newparms)))))
+                                    newparms)
+           (if (assq 'font newparms)
+               (frame-update-faces frame-initial-frame)))))
 
     ;; Restore the original buffer.
     (set-buffer old-buffer)